home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
der12.zip
/
DERDEMO.WND
< prev
Wrap
Text File
|
1993-01-04
|
1KB
|
34 lines
Const
WIND01 : Array[3..15] Of Str80 = (
'Enter String : Enter Date :',
'',
'Enter Time : Enter Phone :',
'',
'Enter Word : Enter Integer :',
'',
'Enter Byte : Enter Real :',
'',
'Enter Sex : Enter YesNo :',
'',
'Enter Social Security Number :',
'',
'Select Normal Color : Reverse Color :'
);
TISS : Array[2..15] of Str80 = (
'[ ] Arrest (cardiac and/or respiratory within past 48 hours).',
'[ ] Intubation performed in ICU.',
'[ ] Controlled ventilation (with/without PEEP).',
'[ ] Controlled ventilation with intermittent or continuous muscle relaxant.',
'[ ] IMV or assisted respirations (with /without PEEP).',
'[ ] Spontaneous PEEP or CPAP.',
'[ ] Supplemental oxygen via mask or nasal prongs.',
'[ ] Spontaneous respirations via endotracheal tube or tracheostomy.',
'[ ] Incentive spirometry/IPPB/inhalation therapy.',
'[ ] Tracheostomy (within 48 hours).',
'[ ] Tracheostomy care.',
'[ ] Chest tube(s).',
'[ ] Chest physical therapy (percussion, drainage).',
'[ ] Tracheal suctioning of non-intubated patient.'
);